Labels:text | screenshot | display | software | number | font | parallel | web page | computer icon OCR: File Edit Object View Run Window 6:53 PM I Ready Form - frmLogin ... fldPassword Properties 1. 2. 0 X Oid 7 udmGetKeypress Login: fldLogin Sub udmGetKeypress() 'Display bullet (*) character instead of text for the Password: |fldPasswordMask password field by reflecting on-the-fly changes in ' fldPassword. Value in fldPasswordMask.Value ' Display a "fake" cursor (I) in fldPasswordMask. ,fldPassword Store string in fldPasswordMask.udpValue so that ' deleting characters works properly. -= DCM =- ====================================== User Properties Force an update of fldPassword.Value . ======================== ==== Name Type Datatype fldPassword.SetFocus() udpInitializedFlag Property Boolean ' Execute only if a change has occured udpValue Property String ' =========================== IF fldPasswordMask.udpValue <> fldPassword. Value & "I" THEN udmGetKeypress Sub ' Store the string in udpValue for later comparison ==================================== Login fldPasswordMask.udpValue = fldPassword. Value & "|" ' Display bullet (*) character for each character in string ===== fldPasswordMask.Value = RIGHT( " ... frmLogin LEN( fldPassword.Value & "I" ) ) END IF + + udpInitializedFlag False
